---
title: "Plotly Flex Dashboard"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
source: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(p8105.datasets)
library(plotly)
library(magrittr)
```
```{r}
data("ny_noaa")
```
Column {data-width=650}
-----------------------------------------------------------------------
### boxplot
```{r}
ny_noaa %>%
slice_sample(n=1000) %>%
separate(date, into = c("year", "month", "day"), convert = TRUE) %>%
mutate(tmax = as.numeric(tmax)/10,tmin = as.numeric(tmin)/10) %>%
plot_ly(y = ~tmax, x = ~month,
color = ~tmax, type="box",
colors="viridis")
```
Column {data-width=350}
-----------------------------------------------------------------------
### Bar Chart
```{r}
ny_noaa %>%
slice_sample(n=1000) %>%
separate(date, into = c("year", "month", "day"), convert = TRUE) %>%
mutate(tmax = as.numeric(tmax)/10,tmin = as.numeric(tmin)/10) %>%
plot_ly(y = ~snwd, x = ~year,
color = ~snwd, type="bar",
colors="viridis")
```
### Scatterplot
```{r}
ny_noaa %>%
slice_sample(n=1000) %>%
separate(date, into = c("year", "month", "day"), convert = TRUE) %>%
mutate(tmax = as.numeric(tmax)/10,tmin = as.numeric(tmin)/10) %>%
plot_ly(y = ~tmax, x = ~tmin,
color = ~year, type="scatter",
colors="viridis")
```